home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / jan93cad.zip / TIP833B.LSP < prev    next >
Text File  |  1993-02-12  |  409b  |  20 lines
  1. ;TIP833B:  MMLINE.LSP (c)1993, Bernd Hoffmann
  2.  
  3. (Defun C:MMLINE (/ PT1 ANG MM LEN)
  4.   (setvar "cmdecho" 0)
  5.   (setq
  6.     PT1 (getpoint
  7.       "\nStart point of line: "
  8.     )
  9.     ANG (getangle "\nAngle of line: ")
  10.     MM (getreal "\nLength of line in mm: ")
  11.     LEN (* MM 0.0393701)
  12.   )
  13.   (command
  14.     ".line" PT1
  15.     (polar PT1 ANG LEN) ""
  16.   )
  17.   (setvar "cmdecho" 1)
  18.   (princ)
  19. ); end mmline.lsp
  20.